home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 005 / product.arc / MACRO11.MNU < prev    next >
Text File  |  1986-09-17  |  215b  |  7 lines
  1. [SET@1/2 ]^C^C(Setq P1+
  2. (Getpoint "Enter first point: "));\+
  3. (Setq P2 (Getpoint "Enter second point: "));\+
  4. (Setvar "Lastpoint" (Polar P1 (Angle P1 P2)+
  5. (/ (Distance P1 P2) 2)));+
  6. Line;(Getvar "Lastpoint");;
  7.